home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n10.arc / RHCTRL.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-05-31  |  1.8 KB  |  32 lines
  1. 100 ' Program to create RHCTRL.COM -- by Johnny Y. Chin
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 22:FOR C=1 TO 16:READ A$:T=T+VAL("&H"+A$):NEXT
  4. 130 READ S:IF S<>T THEN PRINT "ERROR IN LINE";B*10+180:END
  5. 140 T=0:NEXT:RESTORE
  6. 150 OPEN "RHCTRL.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  7. 160 FOR B=1 TO 22:FOR C=1 TO 16:READ A$
  8. 170 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  9. 180 CLOSE:PRINT "RHCTRL.COM CREATED"
  10. 190 DATA E9,86,00,59,00,00,00,00,00,9C,50,1E,B8,40,00,8E,1112
  11. 200 DATA D8,8A,26,17,00,E4,60,3C,4C,75,18,F6,C4,08,75,3E,1645
  12. 210 DATA 2E,80,3E,08,01,01,74,21,80,CC,04,2E,C6,06,08,01,990
  13. 220 DATA 01,EB,12,3C,CC,75,27,F6,C4,08,75,22,80,E4,FB,2E,1928
  14. 230 DATA C6,06,08,01,00,88,26,17,00,E4,61,8A,E0,0C,80,E6,1467
  15. 240 DATA 61,86,E0,E6,61,FA,B0,20,E6,20,1F,58,9D,CF,1F,58,2104
  16. 250 DATA 9D,2E,FF,2E,04,01,51,8A,E0,B1,04,D2,E8,3C,09,77,1763
  17. 260 DATA 04,04,30,EB,02,04,37,80,E4,0F,80,FC,09,77,05,80,1364
  18. 270 DATA C4,30,EB,03,80,C4,37,59,C3,EB,7C,90,0A,0D,4E,75,1866
  19. 280 DATA 6D,65,72,69,63,20,70,61,64,2D,35,20,69,73,20,6E,1361
  20. 290 DATA 6F,77,20,72,69,67,68,74,2D,68,61,6E,64,20,43,74,1475
  21. 300 DATA 72,6C,20,6B,65,79,0A,0D,52,48,43,54,52,4C,20,56,1187
  22. 310 DATA 65,72,20,31,2E,30,20,2D,2D,20,42,79,20,4A,6F,68,1052
  23. 320 DATA 6E,6E,79,20,59,2E,20,43,68,69,6E,20,20,0A,0D,24,1049
  24. 330 DATA 0A,0D,52,48,43,54,52,4C,20,69,73,20,61,6C,72,65,1190
  25. 340 DATA 61,64,79,20,72,65,73,69,64,65,6E,74,20,61,74,20,1489
  26. 350 DATA 3F,3F,3F,3F,0A,0D,24,8C,C8,8E,D8,B8,09,35,CD,21,1493
  27. 360 DATA 89,1E,04,01,8C,06,06,01,26,A0,03,01,3A,06,03,01,595
  28. 370 DATA 74,15,BA,09,01,B8,09,25,CD,21,B4,09,8D,16,8C,01,1294
  29. 380 DATA CD,21,BA,89,01,CD,27,8C,C0,E8,2A,FF,A3,02,02,8C,1974
  30. 390 DATA C0,86,E0,E8,20,FF,A3,00,02,8D,16,E0,01,B4,09,CD,2016
  31. 400 DATA 21,CD,20,00,00,00,00,00,00,00,00,00,00,00,00,00,270
  32.